home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / PAD.PAS < prev    next >
Pascal/Delphi Source File  |  1990-01-19  |  217b  |  14 lines
  1. var
  2.    fd: file of byte;
  3.    b:  byte;
  4.  
  5. begin
  6.    assign(fd,paramstr(1));
  7.    reset(fd);
  8.    seek(fd,filesize(fd)-1);
  9.    b := 26;
  10.    while (filesize(fd) mod 128) <> 0 do
  11.       write(fd,b);
  12.    close(fd);
  13. end.
  14.